home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / patch / WHDIGamesA-B.lzh / BodyBlowsGalactic.lha / BodyBlowsGalacticHD / Install-BBGalactic < prev    next >
Text File  |  2001-04-09  |  3KB  |  144 lines
  1.  
  2. (set #gamedir "BodyBlowsGalactic")
  3.  
  4. ;----------------------------
  5.  
  6. ;try to figure out a place where the user usually installs his games
  7. (if (exists "Games:" (noreq) )
  8.     (set @default-dest "Games:")
  9.     (if (exists "SYS:Games" (noreq) )
  10.         (set @default-dest "SYS:Games")
  11.         (if (exists "Work:Games" (noreq) )
  12.             (set @default-dest "Work:Games")
  13.             (if (exists "JEUX:" (noreq) )
  14.                (set @default-dest "JEUX:")
  15.                (set @default-dest "SYS:")
  16.             )
  17.         )
  18.     )
  19. )
  20.  
  21.  
  22.  
  23. (set #dest
  24. (askdir
  25.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name #gamedir))
  26.     (help @askdir-help)
  27.     (default @default-dest)
  28.     (disk)
  29. )
  30. )
  31.  
  32. (set @default-dest (tackon #dest #gamedir))
  33.  
  34. (set #CI_unit
  35.     (askchoice
  36.         (prompt "From which disk unit do you want\nto install the game")
  37.         (help    @askoptions-help)
  38.         (choices
  39.            "DF0:"
  40.            "DF1:"
  41.            "DF2:"
  42.            "DF3:"
  43.         )
  44.     )
  45. )
  46.  
  47. (set #CI_drive ("DF%ld:" #CI_unit))
  48.  
  49. (makedir @default-dest
  50.     (help @makedir-help)
  51.     (infos)
  52. )
  53.  
  54.  
  55. (set #gamever
  56.     (askchoice
  57.         (prompt "Which loader type/version do you want to install?")
  58.         (help    @askoptions-help)
  59.         (choices
  60.            "JST (ECS/AGA version)"
  61.            "WHDLoad (AGA version)"
  62.            "WHDLoad (ECS version)"
  63.         )
  64.     )
  65. )
  66.  
  67.  
  68. ;----------------------------
  69.  
  70. (if (= #gamever 0)
  71. (
  72. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch) or on my site")
  73. (copyfiles
  74.     (help @copyfiles-help)
  75.     (source "BBGalacticHD")
  76.     (dest @default-dest)
  77. )
  78. (copyfiles
  79.     (help @copyfiles-help)
  80.     (source "BBGalacticHD.icon")
  81.     (dest @default-dest)
  82.     (newname "BBGalacticHD.info")
  83. )
  84. )
  85. (
  86.  
  87. ; whdload
  88.  
  89. (if (= #gamever 1)
  90. (set #agaecs "AGA")
  91. (set #agaecs "ECS")
  92. )
  93.  
  94. (message "\n\n\nThis slave needs the WHDLoad program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nWHDLoad is available from aminet (game/patch) or on the web\n\nhttp://www.whdload.org")
  95.  
  96. (copyfiles
  97.     (help @copyfiles-help)
  98.     (source ("BodyBlowsGalactic%s.slave" #agaecs))
  99.     (dest @default-dest)
  100.     (newname "BodyBlowsGalactic.slave")
  101. )
  102. (copyfiles
  103.     (help @copyfiles-help)
  104.     (source "BodyBlowsGalactic.icon")
  105.     (dest @default-dest)
  106.     (newname "BodyBlowsGalactic.info")
  107. )
  108.  
  109. )
  110. )
  111. (copyfiles
  112.     (help @copyfiles-help)
  113.     (source "bbghd.readme")
  114.     (dest @default-dest)
  115.     (infos)
  116. )
  117.  
  118. (message ("\nInsert %s disk 1 into drive %s !" @app-name #CI_drive))
  119.  
  120.     (if
  121.         (= 0 (run ("boot2file %ld \"%s/BBG.b1\"" #CI_unit @default-dest )))
  122.         ("")
  123.         (abort "\"boot2file\" must be in your PATH !")
  124.     )
  125.  
  126. (message ("\nAbout to read disk data" @app-name #CI_drive))
  127.  
  128.     (if
  129.         (= 0 (run ("rob2file %ld \"%s/BBG.d1\" 2 159 48162937 OFFSET >con:///1000//CLOSE/WAIT" #CI_unit @default-dest )))
  130.         ("")
  131.         (abort "\"rob2file\" must be in your PATH !")
  132.     )
  133.  
  134. (message ("\nInsert %s disk 2 into drive %s !" @app-name #CI_drive))
  135.     (if
  136.         (= 0 (run ("rob2file %ld \"%s/BBG.d2\" 0 159 43532741 >con:///1000//CLOSE/WAIT" #CI_unit @default-dest )))
  137.         ("")
  138.         (abort "\"rob2file\" must be in your PATH !")
  139.     )
  140.  
  141.  
  142. (exit)
  143.  
  144.